home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / graphics / show43a.zip / PROMOTE1.SHW < prev    next >
Text File  |  1994-06-01  |  12KB  |  452 lines
  1. ;*********************************************************************;
  2. ; Scriptname.:  PROMOTE1.SHW                                          ;
  3. ; Date.......:  1st. Jun. 1994, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW v. 4.3A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ; Other files needed:
  8. ; -------------------
  9. ; sound1.shw, scroll1.shw                  ; Tight loop script files
  10. ; promote1.gra, chess.pcx, hugo1.gif       ; Graphic files
  11. ; mrnumo.fli                               ; Animation file
  12. ; entrance.snd                             ; DataShow Music file
  13. ; goodmorn.wav                             ; Wave Music file
  14. ; show1.scr - show8.scr                    ; Captured screen files
  15.  
  16. SET ESCAPEKEY 27                           ; Script can be stopped any time
  17. SET TIMEOUT 10                             ; Seconds to wait for keyboard
  18.  
  19. VARIABLE CREATE counttimes TYPE NUMBER 1   ; Counts number of runs
  20. IF counttimes NE 1 DO JUMPMARK skipsetup   ; Jump if not 1st run
  21.  
  22. VARIABLE CREATE screentype TYPE NUMBER 0   ; Used to determine video mode
  23. COLOR BACKGROUND 1
  24. SCREEN CLEAR
  25. DRAW BOX 79 24
  26.  
  27. ;Check the graphics adapter
  28. IF GRAPH VGA DO
  29.    MATH screentype = 3
  30. END
  31. IF GRAPH EGA DO
  32.    MATH screentype = 2
  33. END
  34. IF GRAPH CGA DO
  35.    MATH screentype = 1
  36. END
  37. IF screentype LE 1 DO
  38.    GOXY 3 2
  39.    WRITE "THIS PRESENTATION IS MADE FOR EGA/VGA SCREENS!"
  40.    GOXY 3 3
  41.    WRITE "IT CAN BE RUN ON YOUR SCREEN BUT SOME FEATURES ARE LIMITED..."
  42.    GOXY 3 4
  43.    WAIT "PUSH ANY KEY..."
  44. END
  45.  
  46. ;Check the sound capabilities
  47. VARIABLE CREATE soundtype TYPE NUMBER 5   ; Used to determine sound mode
  48. VARIABLE CREATE answer TYPE STRING ""     ; Used to get answer from user
  49. GOXY 03 06 DRAW BOX 75 14
  50. COLOR BACKGROUND 4
  51. GOXY 27 01 WRITE "<Setup for promotion script>"
  52. COLOR BACKGROUND 1
  53. GOXY 14 07 WRITE "This presentation can include sampled sound capabilities."
  54. GOXY 14 08 WRITE "For this to work, you need a fast compatible computer and"
  55. GOXY 14 09 WRITE "the means to play sampled sound."
  56. GOXY 22 11 WRITE "Select between one of these choises:"
  57. GOXY 26 13 WRITE "0 - No sound at all"
  58. GOXY 05 14 WRITE "->Select if unsure->"
  59. GOXY 26 14 WRITE "1 - No sampled sound"
  60. GOXY 26 15 WRITE "2 - Via PC Speaker"
  61. GOXY 26 16 WRITE "3 - Via ADLIB card"
  62. GOXY 26 17 WRITE "4 - Via Sound Blaster card"
  63. GOXY 22 19 WRITE "Choise:"
  64. MARK loopread1
  65. GOXY 30 19 READ STRING answer 1
  66. CASE STRING answer "0" DO MATH soundtype = 0
  67. CASE STRING answer "1" DO MATH soundtype = 1
  68. CASE STRING answer "2" DO MATH soundtype = 2
  69. CASE STRING answer "3" DO MATH soundtype = 3
  70. CASE STRING answer "4" DO MATH soundtype = 4
  71. IF soundtype EQ 5 DO JUMPMARK loopread1
  72.  
  73. ;IF SOUND ADLIB DO
  74. ;   MATH soundtype = 3                     ; sound type 3 = adlib
  75. ;END
  76. ;IF SOUND BLAST DO
  77. ;   MATH soundtype = 4                     ; sound type 4 = sound blaster
  78. ;END
  79. ;Set the sound capabilities for MUSIC PROCESS output
  80. IF soundtype EQ 3 DO
  81.    INSTALL SOUND ADLIB
  82. END
  83. IF soundtype EQ 4 DO
  84.    INSTALL SOUND BLAST
  85. END
  86.  
  87. MARK skipsetup                             ; Jump here if not 1st run
  88.  
  89. ;Make graphics at beginning of this script
  90. IF screentype GE 2 DO
  91.    SET GRAPHICS EGA1
  92. END
  93. IF screentype EQ 1 DO
  94.    SET GRAPHICS CGA
  95. END
  96.  
  97. COLOR ATTRIBUTE 31             ; Set to blue background, white foreground
  98. COLOR BACKGROUND 1             ; Set the background to blue
  99. COLOR FOREGROUND 15            ; Set the foreground to white
  100. SCREEN CLEAR
  101.  
  102. SET DELAYFACTOR 5
  103. SET SHADOW 4
  104.  
  105. GOXY 30 2 WRITE "Welcome to a presentation of"
  106.  
  107. EFFECT TEXTTYPE 3 6
  108. GOXY 26 3 WRITE "DataShow"
  109. EFFECT TEXTTYPE 0 1
  110.  
  111. GOXY 10 12 DRAW LINE 60
  112. GOXY 10 20 DRAW LINE 60
  113.  
  114. GOXY 1 14
  115.  
  116. IF soundtype NE 0 DO
  117.    SPEAK "W-E-L-L-K-U-M-E"
  118.    SPEAK "T-OO D-A-TH-A-S-H-U-W"
  119. END
  120.  
  121. DEFINE
  122. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  123. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  124. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  125. //    //  //    //    //     //    //        //  //    //  //   //   // //  //
  126. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  127. END
  128.  
  129. SET DELAYFACTOR 0              ; Set waiting period to zero
  130.  
  131. MOTION LEFT 0                  ; Move defined area across screen
  132. MOTION RIGHT 79                ; Move defined area partly back on screen
  133.  
  134. EFFECT TEXTTYPE 1 6
  135. GOXY 30 20 WRITE "V. 4.3A"
  136. EFFECT TEXTTYPE 0 1
  137. WAIT 2
  138.  
  139. ;Create some special effects
  140. VARIABLE CREATE loopcol TYPE NUMBER 0
  141. MARK 999
  142. COLOR BACKGROUND loopcol
  143. WAIT 1
  144. MATH loopcol = loopcol + 1
  145. IF loopcol LE 7 DO JUMPMARK 999
  146. VARIABLE RELEASE loopcol
  147.  
  148. SET SHADOW OFF
  149. IF screentype NE 0 DO
  150.    SET GRAPHICS OFF
  151. END
  152. SET CURSOR OFF
  153.  
  154. SHOW SCREEN "show1.scr" TXT    ; Show screen saved with CAPTURE
  155.  
  156. IF soundtype NE 0 DO
  157.    MUSIC PROCESS "entrance.snd" SND
  158. ELSE
  159.    WAIT 2
  160. END
  161. WAIT 1
  162.  
  163. COLOR BACKGROUND 3             ; Set the background to cyan
  164. SCREEN CLEAR
  165.  
  166. GOXY 1 20
  167. WINDOW 79 4                    ; Set part of screen as window
  168. COLOR BACKGROUND 7
  169. SCREEN CLEAR                   ; Clear only the current window area
  170.  
  171. GOXY 1 1
  172. WINDOW 79 24                   ; Set back to all of the screen
  173.  
  174. COLOR ATTRIBUTE 63             ; Set to cyan background, white foreground
  175.  
  176. GOXY 6 2
  177. DRAW BOX 70 14
  178.  
  179. SET CURSOR ON
  180. SET DELAYFACTOR 5
  181.  
  182. GOXY 10 4
  183. WRITE "Together with the resident program CAPTURE, you can create pre-"
  184. GOXY 10 6
  185. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  186. GOXY 10 8
  187. WRITE "show them from DATASHOW like this screen to be shown here......"
  188. WAIT 2
  189.  
  190. SCREEN GET                     ; Save the current screen to a buffer
  191. SET CURSOR OFF
  192. SHOW SCREEN "show2.scr" TXT    ; Show screen saved with CAPTURE
  193. WAIT 2
  194. IF soundtype NE 0 DO
  195.    SPEAK "C-A-P-T-U-R-E"
  196.    WAIT 1
  197.    SPEAK "AE"
  198.    SPEAK "S-K-R-EE-EE-N"
  199. END
  200. WAIT 2
  201. SCREEN WIPE SPLIT
  202. SCREEN PUT                     ; Retrieve saved screen from the buffer
  203. SET CURSOR ON
  204.  
  205. GOXY 10 10
  206. WRITE "It is a simple task  to create scripts  and have them  shown on"
  207. GOXY 10 12
  208. WRITE "the screen  with  incredible flexibility.  Scripts are ordinary"
  209. GOXY 10 14
  210. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  211.  
  212. IF soundtype NE 0 DO
  213.    SPEAK "P-U-S-H"
  214.    WAIT 1
  215.    SPEAK "A-N-I"
  216.    WAIT 1
  217.    SPEAK "K-E-I"
  218. END
  219.  
  220. GOXY 10 20
  221. WAIT "Push any key"            ; Wait for any key to be pushed or TIMEOUT
  222.  
  223. SET CURSOR OFF
  224. COLOR ATTRIBUTE 0
  225.  
  226. SHOW SCREEN "show3.scr" TXT    ; Show screen saved with CAPTURE
  227. WAIT 4
  228. SHOW SCREEN "show4.scr" TXT    ; Show screen saved with CAPTURE
  229. WAIT 4
  230. SHOW SCREEN "show5.scr" TXT    ; Show screen saved with CAPTURE
  231. WAIT 4
  232. EFFECT GLITTER
  233. WAIT 1
  234.  
  235. SCREEN CLEAR
  236. GOXY 10 4
  237. WRITE "It is also a simple task to create several slides and have them"
  238. GOXY 10 6
  239. WRITE "shown on the screen with incredible flexibility and control."
  240. GOXY 10 9
  241. WRITE "Here the easy method to make slides is shown..."
  242. WAIT 3
  243.  
  244. SHOW SCREEN "show6.scr" TXT    ; Show screen saved with CAPTURE
  245. WAIT 4
  246.  
  247. IF soundtype NE 0 DO
  248.    SET TEXTSOUND ON
  249. END
  250. COLOR BACKGROUND 4             ; Set the background to red
  251. SCREEN CLEAR
  252. GOXY 10 4
  253. WRITE "You can also write your scripts, slides or graphics to a printer!"
  254. WAIT 3
  255.  
  256. SHOW SCREEN "show7.scr" TXT    ; Show screen saved with CAPTURE
  257. WAIT 2
  258.  
  259. COLOR BACKGROUND 3             ; Set the background to cyan
  260. GOXY 13 5 WRITE "PROMOTE1.SHW"
  261. WAIT 3
  262.  
  263. COLOR ATTRIBUTE 63
  264. SET TEXTSOUND OFF
  265. SET DELAYFACTOR 0
  266.  
  267. SCREEN CLEAR
  268. GOXY 10 10 DRAW BOX 32 2
  269. GOXY 11 11 WRITE "You can create single sounds..."
  270.  
  271. VARIABLE CREATE controlloop TYPE NUMBER 1  ; Variable to control loops
  272.  
  273. MARK loopsound1                ; Create a mark that can be jumped to
  274. VARIABLE CREATE soundloop TYPE NUMBER 1    ; Variable to control sound
  275. DO "sound1.shw"                ; Call another (sub) program
  276. VARIABLE RELEASE soundloop     ; Clean up after us, for next time round
  277. EFFECT SCROLL DOWN
  278. VARIABLE INCREASE controlloop 1
  279. IF controlloop LE 3 DO JUMPMARK loopsound1
  280.  
  281. VARIABLE RELEASE controlloop   ; Clean up after us, for next time round
  282. WAIT 1
  283.  
  284. GOXY 20 8 WRITE "Or play songs, that you write yourself!"
  285. GOXY 20 9 DRAW LINE 38
  286. IF soundtype NE 0 DO
  287.    MUSIC PROCESS "entrance.snd" SND
  288. END
  289. WAIT 1
  290.  
  291. GOXY 20 19 WRITE "Or play sounds in the WAV (windows) format!"
  292. GOXY 20 20 DRAW LINE 42
  293. IF soundtype GE 2 DO
  294.    MUSIC PROCESS "beback.wav" WAV 11000
  295. END
  296. WAIT 3
  297.  
  298. COLOR BACKGROUND 2             ; Set the background to green
  299. SCREEN CLEAR
  300. GOXY 10 8
  301. WRITE "Besides this you can control a lot of things yourself.  You can"
  302. GOXY 10 10
  303. WRITE "draw your own pictures  or  develop your own logo  in DATASHOW."
  304. GOXY 10 12
  305. WRITE "For this purpose there is a menu for graphic drawing..."
  306. WAIT 6
  307.  
  308. SHOW SCREEN "show8.scr" TXT    ; Show screen saved with CAPTURE
  309. WAIT 4
  310.  
  311. SET DELAYFACTOR 5
  312. GOXY 26 12
  313. WINDOW 50 5
  314. SCREEN CLEAR
  315. COLOR FOREGROUND 1
  316. GOXY 26 12
  317. COLOR ATTRIBUTE 47             ; Set to green background, white foreground
  318. DRAW BOX 50 5
  319. GOXY 3 3 WRITE "By selecting F4 you can draw your own drawings,"
  320. GOXY 3 4 WRITE "and then display them from a script like this.."
  321. WAIT 4
  322. GOXY 1 1
  323. WINDOW 79 24
  324.  
  325. IF screentype LT 2 DO
  326.    SCREEN CLEAR
  327.    WRITE "Here a number of graphic screens would have been show.  - These"
  328.    GOXY 1 3
  329.    WRITE "screens require a high graphic mode and cannot be shown on your"
  330.    GOXY 1 5
  331.    WRITE "screen. This demonstration just skips them and continues..."
  332.    GOXY 1 7
  333.    WAIT "Push any key"
  334. END
  335. IF screentype LT 2 DO JUMPMARK skipscreen
  336.  
  337. SET GRAPHICS EGA1
  338. SHOW SCREEN "promote1.gra" GRA
  339. WAIT 4
  340.  
  341. EFFECT GLITTER
  342.  
  343. SCREEN CLEAR
  344. GOXY 10 10 WRITE "You can also show GRAPHICs created from other programs."
  345. GOXY 10 12 WRITE "Here DataShow display a screen saved in the PCX format -"
  346. GOXY 10 14 WRITE "saved from e.g. the program PaintBrush (TM)."
  347. WAIT 4
  348. SHOW SCREEN "winscr.pcx" PCX
  349. WAIT 4
  350.  
  351. SET GRAPHICS EGA1
  352.  
  353. SCREEN CLEAR
  354. GOXY 10 10 WRITE "AND here DataShow displays a screen saved in the GIF"
  355. GOXY 10 12 WRITE "format; made by CompuServe; with a wealth of files."
  356. WAIT 4
  357. SHOW SCREEN "hugo1.gif" GIF
  358. WAIT 4
  359.  
  360. SCREEN CLEAR
  361. GOXY 2 8 WRITE "NOW DataShow ALSO displays screens"
  362. GOXY 2 10 WRITE "saved in the FLI format; That's all"
  363. GOXY 2 12 WRITE "kinds of animations."
  364. WAIT 4
  365. VARIABLE CREATE notimes TYPE NUMBER 0
  366. MARK loopmovie1
  367. SHOW SCREEN "MRNUMO.FLI" FLI
  368. VARIABLE INCREASE notimes 1
  369. IF notimes LE 3 DO JUMPMARK loopmovie1
  370. VARIABLE RELEASE notimes
  371. WAIT 1
  372.  
  373. SET GRAPHICS EGA1
  374.  
  375. COLOR BACKGROUND 1
  376. COLOR FOREGROUND 12
  377. SCREEN CLEAR
  378.  
  379. SET DELAYFACTOR 4
  380.  
  381. GOXY 5 8 WRITE "NEW in DataShow scripts:"
  382. GOXY 5 12 WRITE "Now you can also stay in graphics mode"
  383. GOXY 5 16 WRITE "- and most commands work as in text mode!"
  384. WAIT 3
  385.  
  386. COLOR BACKGROUND 6
  387. COLOR FOREGROUND 14
  388. SCREEN CLEAR
  389. GOXY 10 5
  390. WRITE "Remember to register DataShow. You'll then receive:"
  391. WAIT 2
  392. SET DELAYFACTOR 0
  393. COLOR FOREGROUND 11
  394. GOXY 12 9
  395. WRITE "- A Runtime version called SHOWRUN for distribution of scripts"
  396. WAIT 3
  397. GOXY 12 11
  398. WRITE "- A Manual that can be printed on a printer for overview"
  399. WAIT 3
  400. GOXY 12 13
  401. WRITE "- A Utility package for making more music files"
  402. WAIT 3
  403. GOXY 12 15
  404. WRITE "- And more music and graphics files"
  405. WAIT 3
  406. COLOR FOREGROUND 14
  407. GOXY 10 19
  408. WRITE "See the NOTES.TXT ascii file for further information!"
  409. WAIT 4
  410.  
  411. SET GRAPHICS OFF
  412.  
  413. MARK skipscreen                ; Jump to here if insufficient graphics
  414.  
  415. VARIABLE CREATE counttimes TYPE NUMBER 1
  416. DO "scroll1.shw"               ; Call another (sub) program
  417.  
  418. COLOR FOREGROUND 15
  419. SET SHADOW 2
  420.  
  421. GOXY 1 8 WRITE "This was run number: "+counttimes
  422. IF soundtype NE 0 DO
  423.    SPEAK counttimes
  424.    WAIT 1
  425.    SPEAK "T-I-M-E-S"
  426. END
  427. WAIT 1
  428.  
  429. GOXY 10 11
  430. WRITE "Now this presentation starts over again, but you can stop it at"
  431. GOXY 10 13
  432. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  433. GOXY 10 15
  434. WRITE "you can try all the marvellous things yourself!  Just type SHOW"
  435. GOXY 10 17
  436. WRITE "at the operating system prompt, and you can try out DataShow."
  437. WAIT 1
  438.  
  439. GOXY 10 20 WRITE "That's all folks..."
  440. IF soundtype NE 0 DO
  441.    SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  442. END
  443. SET SHADOW OFF
  444. WAIT 6
  445.  
  446. EFFECT GLITTER
  447. SET CURSOR ON
  448.  
  449. VARIABLE INCREASE counttimes 1
  450.  
  451. CONTINUE
  452.